home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / forms / frmwiz / rdblib / rbprobrp.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-01-28  |  11.8 KB  |  391 lines
  1. VERSION 2.00
  2. Begin Form RBProbRpt
  3. BackColor       =   &H00FFFFFF&
  4. Caption         =   "Problem Report Form"
  5. ClientHeight    =   4020
  6. ClientLeft      =   1095
  7. ClientTop       =   1485
  8. ClientWidth     =   7365
  9. Height          =   4425
  10. Icon            =   RBPROBRP.FRX:0000
  11. Left            =   1035
  12. LinkTopic       =   "Form1"
  13. ScaleHeight     =   4020
  14. ScaleWidth      =   7365
  15. Top             =   1140
  16. Width           =   7485
  17. Begin CommonDialog CMDialog1
  18. Left            =   9060
  19. Top             =   6120
  20. Begin TextBox TxSystem
  21. BackColor       =   &H00FFFFFF&
  22. Height          =   315
  23. Left            =   1920
  24. TabIndex        =   28
  25. Tag             =   "Enter the name of the system that had the problem"
  26. Top             =   1320
  27. Width           =   3135
  28. Begin TextBox TxVer
  29. BackColor       =   &H00FFFFFF&
  30. Height          =   315
  31. Left            =   6600
  32. TabIndex        =   27
  33. Tag             =   "Enter the version number of the system you are using"
  34. Top             =   1320
  35. Width           =   2835
  36. Begin SSCommand BtnSelPrtr
  37. Caption         =   "Select Printer"
  38. Font3D          =   0  'None
  39. Height          =   315
  40. Left            =   540
  41. TabIndex        =   26
  42. Top             =   6180
  43. Width           =   2850
  44. Begin Frame Frame3
  45. Caption         =   "Describe the function being performed, the actions leading up to the error and the problem that occurred"
  46. Height          =   2415
  47. Left            =   120
  48. TabIndex        =   25
  49. Top             =   3720
  50. Width           =   9375
  51. Begin TextBox TxtProblem
  52. Height          =   2115
  53. Left            =   60
  54. MultiLine       =   -1  'True
  55. ScrollBars      =   2  'Vertical
  56. TabIndex        =   13
  57. Tag             =   "Enter the description of the problem and the actions leading up to the problem"
  58. Top             =   240
  59. Width           =   9255
  60. Begin Frame Frame2
  61. Caption         =   "Effect Of Problem"
  62. Height          =   915
  63. Left            =   120
  64. TabIndex        =   24
  65. Top             =   2760
  66. Width           =   9375
  67. Begin TextBox Text1
  68. BackColor       =   &H00FFFFFF&
  69. Height          =   315
  70. Index           =   4
  71. Left            =   2400
  72. TabIndex        =   12
  73. Tag             =   "Enter the description of the other effect of this problem"
  74. Top             =   540
  75. Width           =   6855
  76. Begin CheckBox Check1
  77. Caption         =   "Other (Please Specify)"
  78. Height          =   375
  79. Index           =   4
  80. Left            =   120
  81. TabIndex        =   11
  82. Tag             =   "Check this box if there is some other effect with this problem"
  83. Top             =   480
  84. Width           =   2295
  85. Begin CheckBox Check1
  86. Caption         =   "Can Use System, But Functionality Is Limited"
  87. Height          =   225
  88. Index           =   3
  89. Left            =   4500
  90. TabIndex        =   10
  91. Tag             =   "Check this box if you can use the system, but the functionality of the system is limited because of this problem"
  92. Top             =   240
  93. Width           =   4575
  94. Begin CheckBox Check1
  95. Caption         =   "Can't use this function"
  96. Height          =   225
  97. Index           =   2
  98. Left            =   2040
  99. TabIndex        =   9
  100. Tag             =   "Check this box if you can't use this function because of the problem"
  101. Top             =   240
  102. Width           =   2295
  103. Begin CheckBox Check1
  104. Caption         =   "Can't Use System"
  105. Height          =   225
  106. Index           =   1
  107. Left            =   120
  108. TabIndex        =   8
  109. Tag             =   "Check this box if you can't use the system because of this problem"
  110. Top             =   240
  111. Width           =   1875
  112. Begin Frame Frame1
  113. Caption         =   "Type of Problem"
  114. Height          =   915
  115. Left            =   120
  116. TabIndex        =   23
  117. Top             =   1800
  118. Width           =   9375
  119. Begin CheckBox Check1
  120. Caption         =   "Problem is Repeatable (Consistent)"
  121. Height          =   255
  122. Index           =   0
  123. Left            =   5880
  124. TabIndex        =   5
  125. Tag             =   "Check this box if the problem is repeatable (occurs consistently)"
  126. Top             =   240
  127. Width           =   3375
  128. Begin TextBox Text1
  129. BackColor       =   &H00FFFFFF&
  130. Height          =   285
  131. Index           =   3
  132. Left            =   2400
  133. TabIndex        =   7
  134. Tag             =   "Enter the description of the type of problem"
  135. Top             =   510
  136. Width           =   6855
  137. Begin OptionButton Option1
  138. Caption         =   "Other (Please Specify)"
  139. Height          =   255
  140. Index           =   2
  141. Left            =   120
  142. TabIndex        =   6
  143. Tag             =   "Select this option if some other type of problem occurred"
  144. Top             =   480
  145. Width           =   2295
  146. Begin OptionButton Option1
  147. Caption         =   "System Didn't Work As Expected"
  148. Height          =   255
  149. Index           =   1
  150. Left            =   2700
  151. TabIndex        =   4
  152. Tag             =   "Select this option if the system didn't work as expected"
  153. Top             =   240
  154. Width           =   3195
  155. Begin OptionButton Option1
  156. Caption         =   "System Ended Abnormally"
  157. Height          =   195
  158. Index           =   0
  159. Left            =   120
  160. TabIndex        =   3
  161. Tag             =   "Select this option if the system terminated abnormally"
  162. Top             =   240
  163. Width           =   2535
  164. Begin SSPanel cmsg
  165. Align           =   2  'Align Bottom
  166. Alignment       =   1  'Left Justify - MIDDLE
  167. BackColor       =   &H00C0C0C0&
  168. BevelInner      =   1  'Inset
  169. FloodShowPct    =   0   'False
  170. Font3D          =   0  'None
  171. ForeColor       =   &H00FF0000&
  172. Height          =   315
  173. Left            =   0
  174. TabIndex        =   20
  175. Top             =   3705
  176. Width           =   7365
  177. Begin SSCommand BtnCancel
  178. Caption         =   "Exit"
  179. Font3D          =   0  'None
  180. Height          =   315
  181. Left            =   6180
  182. TabIndex        =   15
  183. Top             =   6180
  184. Width           =   2850
  185. Begin SSCommand BtnPrint
  186. Caption         =   "Print Problem Report"
  187. Font3D          =   0  'None
  188. Height          =   315
  189. Left            =   3360
  190. TabIndex        =   14
  191. Top             =   6180
  192. Width           =   2850
  193. Begin SSPanel Panel3D1
  194. Align           =   1  'Align Top
  195. BackColor       =   &H00FFFFFF&
  196. Caption         =   "Problem Report Form"
  197. Font3D          =   1  'Raised w/light shading
  198. FontBold        =   -1  'True
  199. FontItalic      =   0   'False
  200. FontName        =   "MS Sans Serif"
  201. FontSize        =   18
  202. FontStrikethru  =   0   'False
  203. FontUnderline   =   0   'False
  204. ForeColor       =   &H00FF0000&
  205. Height          =   435
  206. Left            =   0
  207. TabIndex        =   21
  208. Top             =   0
  209. Width           =   7365
  210. Begin TextBox Text1
  211. BackColor       =   &H00FFFFFF&
  212. Height          =   315
  213. Index           =   2
  214. Left            =   6600
  215. TabIndex        =   2
  216. Tag             =   "Enter the name of the contact person"
  217. Top             =   960
  218. Width           =   2835
  219. Begin TextBox Text1
  220. BackColor       =   &H00FFFFFF&
  221. Height          =   315
  222. Index           =   1
  223. Left            =   1920
  224. TabIndex        =   1
  225. Tag             =   "Enter the name of your organization"
  226. Top             =   960
  227. Width           =   3135
  228. Begin TextBox Text1
  229. BackColor       =   &H00FFFFFF&
  230. Height          =   315
  231. Index           =   0
  232. Left            =   1920
  233. TabIndex        =   0
  234. Tag             =   "Enter the name of the person who is reporting the problem"
  235. Top             =   540
  236. Width           =   4575
  237. Begin Label Label1
  238. AutoSize        =   -1  'True
  239. BackColor       =   &H00FFFFFF&
  240. Caption         =   "System..................."
  241. ForeColor       =   &H00000000&
  242. Height          =   195
  243. Index           =   5
  244. Left            =   120
  245. TabIndex        =   30
  246. Top             =   1440
  247. Width           =   1755
  248. Begin Label Label1
  249. AutoSize        =   -1  'True
  250. BackColor       =   &H00FFFFFF&
  251. Caption         =   "Version..........."
  252. ForeColor       =   &H00000000&
  253. Height          =   195
  254. Index           =   3
  255. Left            =   5160
  256. TabIndex        =   29
  257. Top             =   1380
  258. Width           =   1305
  259. Begin Label Label1
  260. AutoSize        =   -1  'True
  261. BackColor       =   &H00FFFFFF&
  262. Caption         =   "On"
  263. ForeColor       =   &H00000000&
  264. Height          =   195
  265. Index           =   4
  266. Left            =   6600
  267. TabIndex        =   22
  268. Top             =   600
  269. Width           =   255
  270. Begin Label Label1
  271. AutoSize        =   -1  'True
  272. BackColor       =   &H00FFFFFF&
  273. Caption         =   "Problem Reported By"
  274. ForeColor       =   &H00000000&
  275. Height          =   195
  276. Index           =   2
  277. Left            =   60
  278. TabIndex        =   19
  279. Top             =   600
  280. Width           =   1800
  281. Begin Label Label1
  282. AutoSize        =   -1  'True
  283. BackColor       =   &H00FFFFFF&
  284. Caption         =   "Contact Person"
  285. ForeColor       =   &H00000000&
  286. Height          =   195
  287. Index           =   1
  288. Left            =   5160
  289. TabIndex        =   18
  290. Top             =   1020
  291. Width           =   1320
  292. Begin Label Label1
  293. AutoSize        =   -1  'True
  294. BackColor       =   &H00FFFFFF&
  295. Caption         =   "Organization............"
  296. ForeColor       =   &H00000000&
  297. Height          =   195
  298. Index           =   0
  299. Left            =   60
  300. TabIndex        =   17
  301. Top             =   1080
  302. Width           =   1800
  303. Begin Label RBDateTime
  304. BackColor       =   &H00FFFFFF&
  305. BorderStyle     =   1  'Fixed Single
  306. Caption         =   "Date - Time"
  307. Height          =   315
  308. Left            =   6960
  309. TabIndex        =   16
  310. Top             =   540
  311. Width           =   2535
  312. Dim RB_Svframeheight As Integer
  313. Dim RB_Svtextheight As Integer
  314. Sub BtnCancel_Click ()
  315.     Unload RBProbRpt
  316. End Sub
  317. Sub BtnPrint_Click ()
  318.     mousepointer = HOURGLASS
  319.     BtnPrint.Visible = False
  320.     BtnCancel.Visible = False
  321.     BtnSelPrtr.Visible = False
  322.     cmsg.Visible = False
  323.     RB_Svframeheight = Frame3.Height
  324.     RB_Svtextheight = TxtProblem.Height
  325.     Frame3.Height = cmsg.Top - Frame3.Top - 100
  326.     TxtProblem.Height = Frame3.Height - 300
  327.     RBProbRpt.Refresh
  328.     junk = DoEvents()
  329.     mousepointer = HOURGLASS
  330.     RBProbRpt.PrintForm
  331.     mousepointer = HOURGLASS
  332.     RBScrn.Show MODAL
  333.     RBErrFrm.WindowState = NORMAL
  334.     RBProbRpt.WindowState = MAXIMIZED
  335.     RBProbRpt.Visible = True
  336.     Frame3.Height = RB_Svframeheight
  337.     TxtProblem.Height = RB_Svtextheight
  338.     BtnPrint.Visible = True
  339.     BtnCancel.Visible = True
  340.     BtnSelPrtr.Visible = True
  341.     cmsg.Visible = True
  342.     BtnCancel.SetFocus
  343.     RBProbRpt.Refresh
  344.     mousepointer = DEFAULT
  345. End Sub
  346. Sub BtnSelPrtr_Click ()
  347.     CmDialog1.DialogTitle = "Problem Report Printer Setup"
  348.     CmDialog1.PrinterDefault = True
  349.     CmDialog1.Flags = PD_PRINTSETUP
  350.     CmDialog1.Action = 5
  351. End Sub
  352. Sub Check1_GotFocus (Index As Integer)
  353.     cmsg.Caption = Check1(Index).Tag
  354. End Sub
  355. Sub Check1_LostFocus (Index As Integer)
  356.     cmsg.Caption = ""
  357. End Sub
  358. Sub Form_Load ()
  359.     RBDateTime.Caption = Format$(Now, "MM/DD/YY - HH:MM:SS")
  360.     On Error Resume Next
  361.     txsystem.Text = rb_systemname
  362.     txver.Text = rb_version
  363.     On Error GoTo 0
  364. End Sub
  365. Sub Option1_GotFocus (Index As Integer)
  366.     cmsg.Caption = Option1(Index).Tag
  367. End Sub
  368. Sub Option1_LostFocus (Index As Integer)
  369.     cmsg.Caption = ""
  370. End Sub
  371. Sub Text1_GotFocus (Index As Integer)
  372.     Text1(Index).BackColor = BLUE
  373.     Text1(Index).ForeColor = WHITE
  374.     cmsg.Caption = Text1(Index).Tag
  375. End Sub
  376. Sub Text1_LostFocus (Index As Integer)
  377.     Text1(Index).BackColor = WHITE
  378.     Text1(Index).ForeColor = BLACK
  379.     cmsg.Caption = ""
  380. End Sub
  381. Sub TxtProblem_GotFocus ()
  382.     TxtProblem.BackColor = BLUE
  383.     TxtProblem.ForeColor = WHITE
  384.     cmsg.Caption = TxtProblem.Tag
  385. End Sub
  386. Sub TxtProblem_LostFocus ()
  387.     TxtProblem.BackColor = WHITE
  388.     TxtProblem.ForeColor = BLACK
  389.     cmsg.Caption = ""
  390. End Sub
  391.